﻿Public Class frm_parametro_placa

    Private Sub bCancelar_Click(sender As System.Object, e As System.EventArgs) Handles bCancelar.Click
        Me.Close()
    End Sub

    Private Sub bConfirmar_Click(sender As System.Object, e As System.EventArgs) Handles bConfirmar.Click
        Dim frmRecursos As New frm_relatorio
        Dim rpt As New rel_fichaCaminhao
        Try
            rpt.ParameterFields.Item(0).CurrentValues.AddValue(tbPlaca.Text)
            frmRecursos.crvRelatorios.ReportSource = rpt
            frmRecursos.ShowDialog()
        Catch ex As Exception
            MessageBox.Show("Erro", "Relatório das Fichas dos Caminhões", MessageBoxButtons.OK)
        End Try
        frmRecursos.Dispose()
        Me.Close()
        rpt = Nothing
    End Sub
End Class